inherited dtmcw_AssetInHock: Tdtmcw_AssetInHock
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'Execute dbo.cw_rpt_AssetInHock'#13#10'@BeginDate=:BeginDate,'#13#10'@EndDate' +
      '=:EndDate,'#13#10'@DeptID=:DeptID'
    Parameters = <
      item
        Name = 'BeginDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'EndDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'DeptID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    object adsMasterID: TAutoIncField
      DisplayLabel = #24207#21495
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsMasterName: TStringField
      DisplayLabel = #39033#30446#21517#31216
      FieldName = 'Name'
      Size = 50
    end
    object adsMasterMoney: TFloatField
      DisplayLabel = #26399#26411#20313#39069
      FieldName = 'Money'
      currency = True
    end
    object adsMasterType: TWordField
      DisplayLabel = #31867#22411
      FieldName = 'Type'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'Remark'
      Size = 500
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 40
  end
end
